home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / Mirror.AMOS / Mirror.amosSourceCode < prev    next >
AMOS Source Code  |  1997-04-15  |  871b  |  41 lines
  1. Auto View Off 
  2. Unpack 16 To 0
  3. Screen Display 0,144,50,304,200
  4. Screen Offset 0,8,0
  5. View : AD=Cop Logic : View 
  6. YY=$D0
  7. Do 
  8.   If(Deek(AD) and 1) and Peek(AD)>$38 Then Exit 
  9.   Add AD,4
  10. Loop 
  11. WA1=AD
  12. LL=Leek(WA1)
  13. A=WA1
  14. Doke A,YY*$100+3 : Add A,4
  15. Loke A,$108FF88 : Add A,4
  16. Loke A,$10AFF88 : Add A,4
  17. For AA=0 To 15
  18.   C=Colour(AA)
  19.   C=(C and $F)+Max((C and $F0)-$30,0)+Max((C and $F00)-$300,0)
  20.   Doke A,$180+AA*2 : Doke A+2,C : Add A,4
  21. Next 
  22. WA2=A
  23. Degree 
  24. Y=Peek(Varptr(LL))
  25. For AA=YY+1 To Y
  26.   Doke A,$102 : Doke A+2,$88 : Add A,4
  27.   Doke A,AA*$100+3 : Doke A+2,$FFFE : Add A,4
  28. Next 
  29. Loke A,LL : Add A,4
  30. Loke A,$960100 : Add A,4
  31. Loke A,$1800000 : Add A,4
  32. Loke A,$FFFFFFFE : Add A,4
  33. Do 
  34.   SSS=(SSS+16) mod 360 : A=WA2 : SS=SSS : W=1
  35.   For AA=YY+1 To Y
  36.     S=Sin(SS)*W+8 : SS=(SS+4) mod 360
  37.     If(AA mod 4)=0 Then W=Min(W+1,7)
  38.     Doke A+2,S*$10+S : Add A,8
  39.   Next 
  40.   Wait Vbl 
  41. Loop